RCDFLG←-1; 
 
  < ZQ   .DAT  --  RANDOM NUMBER=     1
 PLAY;
 BRIT     0.000    0.330 A*2   1000.000
;PRINT(P1);< BRIT    1
 BRIT     0.330    0.330 D*2  
;PRINT(P1);< BRIT    2
 BRIT     0.660    0.330 A/2  
;PRINT(P1);< BRIT    3
 BRIT     0.990    0.750 DS/2 
;PRINT(P1);< BRIT    4
 BRIT     1.740    0.250 C*4  
;PRINT(P1);< BRIT    5
 BRIT     1.990    1.000 GS*2 
;PRINT(P1);< BRIT    6
 BRIT     2.990    0.340 B    
;PRINT(P1);< BRIT    7
 BRIT     3.330    0.330 CS/2 
;PRINT(P1);< BRIT    8
 BRIT     3.660    0.330 FS   
;PRINT(P1);< BRIT    9
 BRIT     3.990    0.750 E    
;PRINT(P1);< BRIT   10
 BRIT     4.740    0.250 G*2  
;PRINT(P1);< BRIT   11
 BRIT     4.990    1.000 E/2  
;PRINT(P1);< BRIT   12
 BRIT     5.990    0.340 F    
;PRINT(P1);< BRIT   13
 BRIT     6.330    0.330 C    
;PRINT(P1);< BRIT   14
 BRIT     6.660    0.330 G    
;PRINT(P1);< BRIT   15
 BRIT     6.990    0.750 AS/2 
;PRINT(P1);< BRIT   16
 BRIT     7.740    0.250 AS/2 
;PRINT(P1);< BRIT   17
 BRIT     7.990    1.000 A    
;PRINT(P1);< BRIT   18
 BRIT     8.990    0.340 FS   
;PRINT(P1);< BRIT   19
 BRIT     9.330    0.330 GS*2 
;PRINT(P1);< BRIT   20
 BRIT     9.660    0.330 F/2  
;PRINT(P1);< BRIT   21
 FINISH; < ZQ   .DAT